home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
RECT.SM
< prev
next >
Wrap
Text File
|
1994-08-22
|
692b
|
20 lines
graph # graph mode
#rectangl(x1_,y1_,x2_,y2_) := block(line(x1,y1,x2,y1),line(x2,y1,x2,y2),
#line(x2,y2,x1,y2),line(x1,y2,x1,y1))
rectangl(10,50,20,60)
do(rectangl(100,10+y*10,110,20+y*10),y,1,2,1)
do(rectangl(200+y*10,10,210+y*10,20),y,1,2,1)
do(rectangl(200+y*10,20,210+y*10,30),y,1,2,1)
do(rectangl(300+y*10,10,310+y*10,20),y,1,2,1)
do(rectangl(300+y*10,50,310+y*10,60),y,1,2,1)
#do(rectangl(210,10+y*10,220,20+y*10),y,1,2,1)
#do(rectangl(200,10+y*10,210,20+y*10),y,1,10,1)
#rectangl(190,50,200,60)
#rectangl(210,50,220,60)
readchar # pause graph by read a char
text # text mode